Bitmap image not valid - nacteni BLOB do TImage

Otázka od: Vagner Pavel

15. 10. 2002 11:16

Hi lidi,
pokousim se vycucat obazek z Accesovksy DB (2000), pres ADO. Obrazek je
*.bmp vkladany pres schranku, v poli pic_src(typu OLE) je napsano
obrazek(kdyz se na to divam v ACCESSu).
                                               dik predem Pavel

procedure TForm1.btnReadPicClick(Sender: TObject);
var
   BS: TADOBlobStream;
begin
  ADOTBL.TableName:='tblObrazky';
  ADOtbl.Open;

  BS := TADOBlobStream.Create(TBlobField(ADOTbl.Fields[2]), bmRead);

  try
   Image1.Picture.Bitmap.LoadFromStream(BS); // tady to vykape
  ...
  ....

This electronic mail transmission contains confidential information intended
only for the person(s) named. Any use, distribution, copying or disclosure
by another person is strictly prohibited.

Tato zpráva obsahuje důvěrné informace, určené výlučně pro uvedeného
adresáta. Jakékoliv užití, kopírování, šíření nebo předávání obsahu zprávy
jiným osobám a subjektům je přísně zakázáno.